(symbols "array" 'pico)

(local
  *ObjectClass
  array
  *EmptyArray)

(setq *ObjectClass
  (javaClass "java.lang.Object") )

(de array (Class Length)
  (default
    Class *ObjectClass
    Length 0)
  (java "java.lang.reflect.Array" "newInstance"
    Class Length) )

(setq *EmptyArray (array) )

(de pico~array (Class Length)
  (if (or Class Length)
    (array Class Length)
    *EmptyArray) )